unit uErro;

interface

type
  RegErro = record

    Error: Boolean;
    Warning: String;

  end;

  TErro = class

    {$REGION '<< Methods >>'}

      public class function New(const a_Error: Boolean; const a_Warning: String): RegErro;

    {$ENDREGION}

  end;

implementation

uses SysUtils;

{$REGION '<< TErro >>'}

class function TErro.New(const a_Error: Boolean; const a_Warning: String): RegErro;
begin
  Result.Error := a_Error;
  Result.Warning := a_Warning;
end;

{$ENDREGION}

end.
